home *** CD-ROM | disk | FTP | other *** search
- #[document 36.4 207.45 169.8 262.7
- static oe="odd_even",nzw="nonzero_winding",wc="winding_counting";
- static stroked="stroked";
- static vert="vertical",horz="horizontal";
- static miter="miter",bevel="bevel",round="round";
- static butt="butt",proj="projected";
- #[page
- auto m=move,l=line,c=curve;
- auto p;
- gc_cspace("Lab");
- gc_color(100.0,0.0,0.0);
- rect(0,0,0,0);
- auto ng=draw(path());
- auto s=array(ng);
- m(42.65,235.05);
- c(42.65,223.00,69.75,213.30,103.10,213.25);
- c(136.40,213.30,163.50,223.00,163.50,235.05);
- c(163.50,247.05,136.40,256.90,103.10,256.90);
- c(69.75,256.90,42.65,247.05,42.65,235.05);
- close_edge();
- p=path();
- gc_color(100.00,0.00,0.01);
- s[0]=draw(p);
- gc_draw_style(stroked);
- gc_line_join_style(round);
- gc_line_cap_style(round);
- gc_stroke_width(0.76);
- gc_font_draw_style(0);
- gc_color(0.00,0.00,0.00);
- s[0]:=draw(p);
- m(44.85,235.05);
- c(44.90,224.25,70.85,215.45,103.10,215.50);
- c(135.25,215.45,161.35,224.25,161.30,235.05);
- c(161.35,245.95,135.25,254.65,103.10,254.65);
- c(70.85,254.65,44.90,245.95,44.85,235.05);
- close_edge();
- p=path();
- gc_draw_style(nzw);
- gc_color(54.30,74.23,37.23);
- s[1]=draw(p);
- s[0]:=s[1];
- m(37.05,235.05);
- c(37.10,220.25,66.55,208.15,103.10,208.10);
- c(139.55,208.15,169.15,220.25,169.10,235.05);
- c(169.15,249.95,139.55,262.05,103.10,262.05);
- c(66.55,262.05,37.10,249.95,37.05,235.05);
- close_edge();
- p=path();
- gc_color(68.91,16.76,-45.54);
- s[1]=draw(p);
- gc_draw_style(stroked);
- gc_stroke_width(1.30);
- gc_color(0.00,0.00,0.00);
- s[1]:=draw(p);
- s[0]over=s[1];
- page:=s[0];
- s=NULL;
- #]page
- #]document
-